MacFormat 2000 July/macformat-092.iso/Broderbund Demo/DemoData/Mathwork/MATHWORK.Dxr/00894.ls

Text File | 1997-08-22 | 492 b | 23 lines

on exitFrame
  global gCorpDemo, gPickerPath, gDemoState
  if not voidp(gCorpDemo) then
    if word 2 of gCorpDemo = "DemoAll" then
      go("returnFade", gPickerPath)
      exit
    end if
  end if
  if the timer < (3 * 60 * 60) then
    go(the frame)
  else
    setupPuppets(1, 48, 0)
    if not voidp(gCorpDemo) then
      set gCorpDemo to "Picker DemoAll"
      go("returnFade", gPickerPath)
    else
      resetDemo()
      set gDemoState to 1
      go("return")
    end if
  end if
end